# Set wd to the folder

sink("replication.log", split = TRUE)

cat("Replication run started on:", Sys.time(), "\n\n")

source("01_data_cleaning.R")

cat("\nData cleaning completed\n\n")

quarto::quarto_render("02_analysis.qmd")

cat("\nAnalysis completed\n\n")

cat("\n\nSession information:\n")
sessionInfo()

cat("Replication run completed on:", Sys.time(), "\n")

sink()
